a rope slides frictionlessly down the edge of a table

[Analog_Engine.git] / scripts / TP1 08.23a stick falling.DELACE

diff --git a/scripts/TP1 08.23a stick falling.DELACE b/scripts/TP1 08.23a stick falling.DELACE
new file mode 100644 (file)
index 0000000..9256c37
--- /dev/null
+++ b/scripts/TP1 08.23a stick falling.DELACE
@@ -0,0 +1,16 @@
+coefficient(1): a
+
+integrate (y'') -> -y':
+   IC: +1
+integrate (-y') -> y
+invert (y) -> -y
+sin = y
+
+integrate (omega') -> -omega
+a * sin -> a_times_sin
+omega' = a_times_sin
+
+invert (-omega) -> omega
+multiply (omega, omega) -> omega²
+multiply (omega², -y) -> -omega²y
+y'' = -omega²y